home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
C-Communications
/
(c)c4.d64
/
mega vterm 4.6.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
16KB
|
501 lines
1 REM BBS NAMES START AT LINE# 816
2 REM PHONE #'S START AT LINE# 921
3 REM QL$ IS ID/PASSWORD REMINDER
4 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB8000
5 PRINT"[147]":POKE999,1:IFPEEK(828)<>169THENPRINT" SETTING UP...":GOSUB9900
6 POKE665,5:POKE666,13:POKE1014,104:POKE1015,104:POKE1016,76:POKE1017,126
7 POKE1018,166:IFPEEK(22784)=76THEN51
11 POKE53281,11:PRINT"[147] MEGA VERSA-TERM ":PRINT"VERSION 4.6 / 10 FEB 85"
16 PRINT"ORIGINALLY BY STEVE PUNTER."
21 PRINT"CONVERTED TO C64 BY KEITH PETERSON."
26 PRINT"[158]MODIFIED AND ENHANCED BY:":PRINT"EARL GOLDBERG AND RICH BUCHANAN, [155]
27 [153]"LISTTHE KANSAS CITY COMMODORE USERS' GROUP."
28 [153]"ADDITIONS BY JONATHAN ROGERS"
31 [129]AX[178]1[164]1000:[130]AX:[137]46
36 [137]181
46 [153]"OPENLOADING MACHINE LANGUAGE SUBROUTINES..."
51 [151]24816,6:[151]24817,0:[143] 300BAUD 8BIT NO PARITY
56 [151]53280,0 :[151]646,7:[151]53281, 0
61 [139][194](22784)[179][177]76[167][147]"AVT.ML2",8,1
66 [139][194](49152)[179][177]169[167][147]"AVT.ML1",8,1
81 R%[178]5:MO%[178]6:SE$[178]"":ML[178]22784
86 [151]56,86:[151]644,86:[156]:[159]5,2,0,[199]([194](24816))[170][199]([194](24817))
91 [151]665,5:[151]666,13:RE$[178]" ":SE$[178]" ":MO%[178]134:R%[178]0:C$[178]"0123456789ABCDEF"
96 RP[178]2:RS[178]0:WP[178]RP:WS[178]RS
101 BS[178]255:TP$[178]"(null)LD 7 PEEKIT (null)ROTOCOL":TY[178]0
106 [151]24575,RP:[151]24574,RS[170]96:[151]24573,WP:[151]24572,WS[170]96
111 PA(0)[178]10:PA(1)[178]6:PA(2)[178]2
116 ML[178]22784:[153][199](14):[151]24569,0
121 [159]1,8,15:[151]556,0:[151]552,0:[151]553,1
122 [139][194](999)[178]1[167][151]999,0:DN$[178]"":[137]1356
126 DN$[178]"":[137]136
131 [161]#5,A$,A$:[139]FF[178]1[167][141]1056
133 [158]ML:[160]11:[151]24569,0:TM[178]0
136 [151]198,0:[151]53280,6:[153]"LOADCONT =*=(null)EGA (null)ERSA-(null)ERM 4.6 (null)ATNRIGHT$(null) (null)VAL(null)(null)=*= "
137 SC[178]1014
141 [153]" 1 > (null)ERMINAL (null)ODE":[153]" 2 >CLR (null)RANSMIT (null)ROGRAM "
146 [153]" 3 >CLR (null)ECEIVE (null)ROGRAM"
151 [153]" 4 > STR$ISK LENOMMANDS"
156 [153]" 5 >DEF ATNUTODIAL"
161 [153]" 6 >PRINT# (null)OGGLE (null)UNTER (null)ROTOCOLS"
163 [139]TY[178]1[167][153]" 7 >OPEN LENHANGE PEEKLOCK-(null)RANSMIT (null)IZE"
165 [153]" 8 > CHR$RAPHICS (null)ERMINAL (null)ODE"
166 [153]" 9 > (null)(null)RIGHT$(null)"
171 [153]" <LEN(null)(null)/LEFT$(null)(null)VAL>SYS (null)ETURN TO (null)VAL(null)(null)"
172 [153]" PEEK > LENHECK PEEKELL (null)OLUME"
173 [153]" LEN >OPEN (null)ESET LENLOCK
176 PRINT"[159] [208]UNTER VERSION : "TP$
178 IFTY=1THENPRINT"[159] [194]LOCK SIZE ="BS"[157] "
181 SYSSC:GETA$
186 IFA$=""THEN181
187 IFA$="B"THEN198
188 IFA$="C"THEN 7100
191 ONVAL(A$)GOTO201,391,216,1081,576,1351,1451,7000,496
196 GOTO181
198 FF=1:GOSUB1056:POKE198,0:GOTO181
201 PRINT"[147] [212]ERMINAL [205]ODE "
211 GOTO1471
216 PRINT"[147] [208]UNTER [196]OWNLOADING [205]ODE [146]":PRINT" [180]"TP$"[170]"
221 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"[206]AME OF [198]ILE FOR [196]ISK?"
226 PRINT" [195]AUTION: [193]UTO [211]AVE W/ [210]EPLACE [146]":IFTY=1THEN1426
231 PRINT"> ";:GOSUB516:S$=B$
236 IFS$=""THENPRINT#5,"[193]";:GOTO1471
241 S$="@0:"+S$
246 GOSUB346:S$=S$+T$+",W"
251 CLOSE2:OPEN2,8,2,S$:GOSUB551:IFES THENPRINT:PRINT""ES$"":CLOSE2:GOTO216
253 PRINT"[147][156][210][197][195][197][201][214][201][206][199][146] "B$"":GOSUB11000
256 PRINT#5,"TTTTTTTTTTTTTTTTTTTTTTT";
261 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN261
266 SYSML+18:SS=ST:IFSS THEN291
271 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN271
276 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12
281 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN296
286 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO261
291 CLOSE2:PRINT#5,"SSSSSSSSSSSSSSSSSSSSS";:PRINT:PRINT"[156] [196][207][206][197] ":FF=1:GOTO1471
296 PRINT#5,"";:PRINT":";:GOTO261
301 PRINT"[212]YPE OF [198]ILE:"
306 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT"> ";
311 GETB$:IFB$=""THEN311
316 TY$=B$:FL=0
321 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":FORX=1TO900:NEXTX:RETURN
326 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":FORX=1TO900:NEXTX:RETURN
331 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":FORX=1TO900:NEXTX:RETURN
336 IFB$=CHR$(13)THENFL=1:RETURN
341 GOTO311
346 PRINT#5,"UUUUUUUUUUUUUUUUUUUUUUUUU";
351 GET#5,A$:IFST<>0THEN351
356 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO376
361 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO376
366 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO376
371 GOTO351
376 PRINT"[198]ILE [212]YPE: "A$""
381 GET#5,A$:IFST=0THEN381
386 RETURN
391 PRINT"[147] [208]UNTER [213]PLOADING [205]ODE [146]":PRINT" [165]"TP$"[167]"
393 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":IFTY=1THEN1376
396 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT"> ";:GOSUB516:S$=B$:IFS$=CHR$(13)THENS$=""
401 IFS$=""THENPRINT#5,"[193]";:GOTO1471
406 GOSUB301:IFFLTHENS$="":GOTO401
408 PRINT"[147][156][212][210][193][206][211][205][201][212][212][201][206][199][146] "S$"":GOSUB11000
411 CLOSE2:OPEN2,8,2,S$+T$:GOSUB551:IFESTHENPRINT""ES$"":CLOSE2:GOTO396
416 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
421 GET#5,A$:IFST<>0ORA$<>"U"THEN421
426 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN426
431 SYSML+9:CK=ST
436 FORX=1TO400:NEXT
441 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN441
446 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT
451 PRINT#5,"ZZZZZZZZZZZZZZZZZZZZZZZZZZ";
456 IFPEEK(669)<>PEEK(670)THEN456
461 GET#5,A$:IFST<>0THEN461
466 IFA$=""THENPRINT":";:GOTO436
471 IFA$<>""THEN461
476 IFCK=0THENPRINT"-";:GOTO426
481 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN481
486 PRINT:PRINT"[156] [196][207][206][197][160]":FF=1:CLOSE2:GOTO1471
491 SYSML+21:A$=CHR$(PEEK(634)):RETURN
496 IFTY=0THENPRINT:PRINT
498 PRINT"[209][213][201][212]? [193][210][197] [217][207][213] [211][213][210][197][146]? (Y/N)";
501 GETZ$:IFZ$="N"THEN136
506 IFZ$="Y"THENCLOSE5:CLOSE1:CLOSE2:CLOSE11:GOTO1306
511 GOTO501
516 PRINT" [146][157]";:B$=""
521 GETA$:IFA$=""ORA$=""ORA$="[147]"THEN521
523 IFA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN521
524 IFA$=" "THENIFLEN(B$)=0THEN521
526 IFA$=CHR$(20)THEN541
531 IFA$=CHR$(13)THENPRINT" ":RETURN
536 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO521
541 IFLEN(B$)=0THEN521
546 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO521
551 REM GET ERROR CHANNEL
556 INPUT#1,E1$,E2$,E3$,E4$
561 ES$=E1$+","+E2$+","+E3$+","+E4$
566 ES=VAL(E1$):RETURN
571 POKE22784,0:RUN
576 B1=56577:B2=56579:IF(PEEK(B1)AND16)<>0THEN651
578 PRINT" [217]OU ARE CURRENTLY [207][206]-[204][201][206][197]!":GOSUB10000:POKE198,0:GOTO181
651 POKEB2,32:POKEB1,0
656 PRINT"[147][149] -- [194]ULLETIN [194]OARD [196]IRECTORY -- [146]":GOSUB816:SYSSC
657 PRINT"[156][217]OUR CHOICE":GOSUB891
661 PRINT"[145][205]OVE [212]-[196] SWITCH TO [196][193][212][193][146] ":FORK=1TO1000:NEXTK:GOTO676
666 D$="":PRINT"[145][197]NTER NUMBER TO DIAL > [157][157][157][157][157]";:INPUTD$:IFLEN(D$)<7THEN656
671 RETURN
676 POKEB1,32:T=100
681 IFZY$<>"[136]"ANDZY$<>""THENT=T-1:GETZY$:IFT<>0THEN681
682 IFZY$="[136]"THENZY$="":GOTO651
683 IFZY$=""THENZY$="":POKEB1,0:GOTO136
686 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1):IFN$<CHR$(48)ORN$>CHR$(57)THENII=1
691 PRINT"[129]"N$"[146]";:N=VAL(N$):IFN=0THENN=10:IFII=1THENII=0:NEXTX:GOTO651
696 GOSUB721:NEXTX
701 NT=NT+1:FORXB=1TO(40-D):PRINT" ";:NEXTXB
706 PRINT"[152][212]RY #"NT:GOTO771
711 PRINT" [195][207][206][206][197][195][212][197][196]....GOING TO [212][197][210][205][201][206][193][204] [205][207][196][197]":PRINTQL$:SYS49173:GOTO1471
721 FORN1=1TON
726 POKEB1,0
731 T=3
736 T=T-1:IFT<>0THEN736
741 POKEB1,32:T=3
746 T=T-1:IFT<>0THEN746
751 NEXTN1:T=15
756 T=T-1:IFT<>0THEN756
761 RETURN
766 END
771 PRINT" [156]([208]RESS <[198]7> TO CHOOSE A NEW NUMBER)":CT=0:DC=0:BU=0:SI=0:SYSSC
773 IFLEN(D$)>8THENSI=-100
776 PRINT"[215]HEN CONNECTION IS MADE, BELL WILL SOUNDBEFORE GOING TO [212]ERMINAL";
778 PRINT" MODE.":POKE198,0
781 PRINT" ---=[ [208]RESS[159] <[195]LR/[200]OME> FOR [205]ENU ]=----";:NP=0:FOR ZZ= 450TO0STEP-1
786 GETA$:IFA$="[136]"THENA$="":ZZ=-1:GOTO651
791 X=PEEK(B1):X=XAND16:GOSUB1311
796 IFA$=CHR$(19)THENPOKEB1,0:A$="":GOTO136
798 IFBU>3ANDDC=0ANDCT=0THENBU=0:ZZ=-1:GOTO806
801 NEXTZZ
806 POKEB1,0:FORZY=1TO200:NEXTZY:PRINT"[145][145][145][145][145][145][145][145][145][158] ###### [195]ONTINUOUS [196]IALING [205]ODE";
811 PRINT" #######":PRINT" [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
812 FORZY=1TO150:GETZY$:IFZY$<>"[136]"ANDZY$<>""THENNEXT
813 IFZY$="[136]"THENZY$="":ZY=51:POKEB1,0:GOTO651
814 IFZY$=""THENZY$="":ZY=51:POKEB1,0:GOTO136
815 GOTO676
816 PRINT"[145]";
817 REM-DON'T CHANGE POSITION OF QUOTES! ===============================
818 PRINT" <1>[200][193][204] #1 ";
819 PRINT" <2>[195][207][205][208][213][211][197][210][214][197] ";
820 PRINT" <3>[195][207][205][211][208][197][195] ";
821 PRINT" <4>[212][208][213][199] ";
825 PRINT" <5>[195][207][205][211][208][197][195] [201][201] ";
826 PRINT" <6>[193][205][197][216] [195][207][210][208]. ";
829 PRINT" <7>[194][213][199] [194][207][193][210][196] ";
831 PRINT" <8>[195][205][194][194][211] ";
832 PRINT" <9>[213][211][197][210]*[208][207][210][212] ";
836 PRINT"<10>[195][213][199][207][210] [195][205][194][194][211] ";
837 PRINT"<11>[195][207][205][205][207][196][207][210][197] [205][193][199][201][195] ";
841 PRINT"<12>[208][213][206][212][197][210] [208][211][201] ";
842 PRINT"<13>[194][194][194][194][211]-8661 ";
846 PRINT"<14>[194][194][194][194][211]-5833 ";
847 PRINT"<15>[194][194][194][194][211]-9047 ";
851 PRINT"<16>[194][194][194][194][211]-9991 ";
852 PRINT"<17>[214][207][201][196] [194][194][211] ";
856 PRINT"<18>- - - - - - - - ";
857 PRINT"<19>- - - - - - - - ";
861 PRINT"<20>- - - - - - - - ";
862 PRINT"<21>- - - - - - - - ";
871 PRINT"<22>- - - - - - - - ";
872 PRINT"<23>- - - - - - - - ";
876 PRINT"<24>- - - - - - - - ";
881 PRINT"[149] [146][159] <99> [207]THER [149] "
886 RETURN
891 NT=0
896 PRINT"";
901 A$="":INPUTA$:IFVAL(A$)>99THEN651
902 QL$="":IFVAL(A$)=99THEN666
903 IFVAL(A$)<1THEN136
904 IFLEN(A$)>2THEN651
906 ONVAL(A$)GOTO921,926,931,936,941,946,951,956,961,966,971,976,981,986,991
911 A=VAL(A$)-15
916 ONAGOTO996,1001,1006,1011,1016,1021,1026,1031,1036,1041,1046
917 GOTO651
920 REM ########## BBS #1 #############
921 D$="1-816-931-7425"
922 QL$="<ID:****** PWD:******>":RETURN
925 REM ########## BBS #2 #############
926 D$="366-1869"
927 QL$="<ID:****** PWD:******>":RETURN
930 REM ########## BBS #3 #############
931 D$="633-0185"
932 QL$="<ID:****** PWD:******>":RETURN
935 REM ########## BBS #4 #############
936 D$="782-9534"
937 QL$="<ID:****** PWD:******>":RETURN
940 REM ########## BBS #5 #############
941 D$="633-4262"
942 QL$="<ID:****** PWD:******>":RETURN
945 REM ########## BBS #6 #############
946 D$="1-877-0280"
947 QL$="<ID:****** PWD:******>":RETURN
950 REM ########## BBS #7 #############
951 D$="454-5330"
952 QL$="<ID:****** PWD:******>":RETURN
955 REM ########## BBS #8 #############
956 D$="1-301-251-0599"
957 QL$="<ID:****** PWD:******>":RETURN
960 REM ########## BBS #9 #############
961 D$="1-817-293-6331"
962 QL$="<ID:****** PWD:******>":RETURN
965 REM ########## BBS #10 ############
966 D$="1-716-334-7052"
967 QL$="<ID:****** PWD:******>":RETURN
970 REM ########## BBS #11 ############
971 D$="1-716-633-7731"
972 QL$="<ID:****** PWD:******>":RETURN
975 REM ########## BBS #12 ############
976 D$="624-5431"
977 QL$="<ID:****** PWD:******>":RETURN
980 REM ########## BBS #13 ############
981 D$="481-8661"
982 QL$="<ID:******* PWD:******>":RETURN
985 REM ########## BBS #14 ############
986 D$="487-5833"
987 QL$="<ID:******* PWD:******>":RETURN
990 REM ########## BBS #15 ############
991 D$="481-9047"
992 QL$="<ID:******* PWD:******>":RETURN
995 REM ########## BBS #16 ############
996 D$="277-9991"
997 QL$="<ID:******* PWD:******>":RETURN
1000 REM ########## BBS #17 ###########
1001 D$="759-3485"
1002 QL$="<ID:****** PWD:******>":RETURN
1005 REM ########## BBS #18 ###########
1006 D$="**************"
1007 QL$="<ID:****** PWD:******>":RETURN
1010 REM ########## BBS #19 ###########
1011 D$="**************"
1012 QL$="<ID:****** PWD:******>":RETURN
1015 REM ########## BBS #20 ###########
1016 D$="**************"
1017 QL$="<ID:****** PWD:******>":RETURN
1020 REM ########## BBS #21 ###########
1021 D$="**************"
1022 QL$="<ID:****** PWD:******>":RETURN
1025 REM ########## BBS #22 ###########
1026 D$="**************"
1027 QL$="<ID:****** PWD:******>":RETURN
1030 REM ########## BBS #23 ###########
1031 D$="**************"
1032 QL$="<ID:****** PWD:******>":RETURN
1035 REM ########## BBS #24 ###########
1036 D$="**************"
1037 QL$="<ID:****** PWD:******>":RETURN
1040 REM ########## BBS #25 ###########
1041 D$="**************"
1042 QL$="<ID:****** PWD:******>":RETURN
1045 REM ########## BBS #26 ###########
1046 D$="**************"
1047 QL$="<ID:****** PWD:******>":RETURN
1056 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15
1061 FORP=1TO7:POKES+4,29:FORT=1TO200:NEXT:POKES+4,20:NEXT
1066 POKES+24,0:POKES+15,0:POKES+5,0:POKES+1,0:FORL=0TO24:POKES+L,0:NEXT
1068 IF FF=1THENFF=0:RETURN
1071 POKE198,1:POKE631,13
1076 PRINT"[147]";:GOTO711
1081 CLOSE15:OPEN15,8,15:PRINT"[147]":GOTO1241
1086 PRINT"[147][159] <[211][208][193][195][197][194][193][210] TO STOP/CONTINUE>":SYS828:OPEN1,8,15
1171 IFFG=1THENPRINT"[145][145]":FG=0
1172 PRINTTAB(8)"[156][208]RESS ANY KEY TO CONTINUE"
1176 GET A$:IFA$=""THEN1176
1181 GOTO1241
1186 IFT$="M"THENCLOSE7:CLOSE6:GOTO136
1191 GETT$:IFT$=""GOTO1186
1196 RETURN
1201 REM DISK COMMANDS
1206 C$="":PRINT"[145]> [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1211 GETB$:IFB$=""THEN1211
1216 PRINTB$;:IFB$=CHR$(13)THEN1226
1221 C$=C$+B$:GOTO1211
1226 PRINT#15,C$
1231 PRINT"[145]";
1236 INPUT#15,A$,B$,C$,D$:PRINT" "A$","B$","C$","D$" ":GOTO1171
1241 PRINT"[147] [158] ******* [196]ISK [195]OMMANDS ******* [146]":PRINT
1246 PRINT" [196] - [196]IRECTORY"
1251 PRINT" [194] - [194]LOCKS [198]REE"
1256 PRINT" [211] - [196]ISK [211]TATUS"
1261 PRINT" > - [196]ISK [195]OMMAND"
1266 PRINT" [205] - [210]ETURN TO [205]AIN [205]ENU":POKE198,0
1268 FORX=1TO6:PRINT" ";MID$("[149][154][156]",X,1);"[208]RESS KEY FOR OPTION"
1271 FORXX=1TO10:NEXTXX:GETA$:IFA$=""THENPRINT"[145]";:NEXTX:GOTO1268
1276 IFA$="D"THEN1086
1281 IFA$="."ORA$=">"THENFG=1:GOTO1201
1286 IFA$="M"THENCLOSE6:CLOSE7:GOTO136
1291 IFA$="S"THEN1231
1296 IFA$="B"THEN1541
1301 GOTO1271
1306 SYS64738
1311 DC=DC+X:IFDC>0THENSI=SI+1:GOTO1322
1316 CT=CT+1:SI=0:IFCT<40THENRETURN
1321 ZZ=-1:GOTO1056
1322 IFNP>0THENIFSI>75THENZZ=-1:DC=0:CT=0:GOTO1341
1323 IFNP=0THENIFSI>120THENZZ=-1:DC=0:CT=0:GOTO806
1325 IFCT>0ANDCT<17THENBU=BU+1
1326 IFCT<17THENDC=0:CT=0:RETURN
1331 NP=NP+1:IFNP>2THENZZ=-1
1336 DC=0:CT=0:RETURN
1341 DI$=" ** [206][207][210][205][193][204] [208][200][207][206][197] [204][201][206][197]! ** ":FF=1
1343 PRINT"[145][145][145][145][145][145][145][145][145]"DI$:POKEB1,0:POKEB2,32:GOSUB1056:PRINT"[208]RESS ANY KEY TO CONTINUE
1344 [151]198,0:[146]198,1:[151]198,0:[137]651
1351 [139]TY[178]1[167][138]6
1356 [151]53280,0:[129]K[178]1[164]125:[130]
1361 [160]5:[159]5,2,0,[199](6):[151]665,75:[161]#5,A$:BS[178]255:TY[178]1
1366 [160]15:[159]15,8,15:TP$[178]"CLR(null)EW 8 PEEKIT (null)ROTOCOL"
1371 TY$[178]"PSP":[137]136
1376 [153]"(null)AME OF ASCILE TO SEND?":[153]"> ";:[141]1481:[139]I$[178]""[167]1471
1378 [153]"LOADCLR(null)(null)ATN(null)(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$WAIT "I$"":[141]11000
1381 [153]:T$[178]",P,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1396
1386 FT[178]1:[139]ER[179]20[167]1416
1391 [160]2:[153]"STR$ISK VALRROR!":[137]1471
1396 T$[178]",S,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]1411
1401 FT[178]2:[139]ER[179]20[167]1416
1406 [160]2:[153]"STR$ISK VALRROR!":[137]1471
1411 [160]2:[153]"ASCILE (null)YPE VALRROR!":[137]1471
1416 [158]49173:[151]51227,FT:[158]49164:[139][194](512)[179][177]1[167]1421
1418 [160]2:[158]49173:[153]:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471
1421 [158]49173:[151]51224,BS:[158]49158:[160]2:[158]49173:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]1471
1426 [153]"(null)AVE ATNS > ";:[141]1481:[153]:[139]I$[178]""[167]1471
1428 [153]"LOADCLR(null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$WAIT "I$"":[141]11000
1431 [158]49173:[158]49161:[139][194](512)[178]1[167][158]49173:FF[178]1:[137]1471
1436 T$[178]","[170][202](TY$,[194](51227),1)[170]",W"
1441 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310
1446 [158]49173:[158]49155:[160]2:[151]668,[194](667):[158]49173:FF[178]1
1447 [153]:[153]"CLR STR$(null)(null)VAL ":[137]1471
1451 [139]TY[179][177]1[167]181
1453 [153]" (null)EW PEEKLOCK (null)IZEWAIT > ";:[141]1481:[139]I$[178]""[167]136
1456 BS[178][181]([197](I$)):[139]BS[179]40[167]BS[178]40
1461 [139]BS[177]255[167]BS[178]255
1466 [137]136
1471 [139]FF[178]1[167][141]1056
1476 [158]49173:[158]49167:[137]136
1481 I$[178]""
1486 [153]" WAITCMD";
1491 [161]A$:[139]A$[178]""[176]A$[178]""[176]A$[178]"LOAD"[176]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]"CMD"[167]1491
1493 [139]A$[178]" "[167][139][195](I$)[178]0[167]1491
1496 [139]A$[178][199](13)[167]1531
1501 [139]A$[178][199](20)[167]1521
1506 [139][195](I$)[177]16[167]1491
1511 [139]([198](A$)[175]127)[179]32[167]1491
1516 [153]A$;:I$[178]I$[170]A$:[137]1486
1521 [139][195](I$)[178]0[167]1491
1526 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]1486
1531 [153]" ":[142]
1536 [153]
1541 [143] BLOCK FREE CHECKER BY JIM BUTTERFIELD
1546 [152]15,"I0"
1551 [159]9,8,0,"$0:"[170]S$
1556 N$[178][199](0)
1561 [161]#9,A$,A$,A$,A$,A$,A$
1566 [161]#9,A$:[139]A$[179][177]""[137]1566
1571 [161]#9,A$,A$,A$,B$
1576 F[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256
1581 [139]S$[179][177]"7%JK"[167][160]9
1586 [160]9:[153]"ON PEEK(null)(null)LEN(null)(null) ASC(null)VALVAL :"F"CMD "
1591 [160]9:[153]:[153][163]8)"ONCLR(null)RESS ANY KEY TO CONTINUE":[151]198,0
1596 [161] A$:[139]A$[178]""[167]1596
1601 [137]1241
7000 [143] GRAPHICS TERMINAL MODE
7005 [153]"LOAD CHR$RAPHICS (null)ERM "
7007 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
7009 [153]"ASCOR LEN(null)PEEKPEEK(null) OR OTHER CHR$RAPHIC PEEKOARDS"
7010 [161]#5,A$:[151]212,0
7015 [139]A$[178]""[167]7050
7017 [139]A$[178][199](13)[176]A$[178][199](141)[167] [153]" ";
7020 [153]A$;
7025 [137]7010
7050 [161]A$:[153]"-";[199](157);:[139]A$[178]""[167]7010
7051 [152]5,A$;
7052 [151]212,0
7053 [139]A$[178]""[167] [137]136
7065 [137]7010
7100 [153]"LOADCLR (null)LEN(null)VALVAL(null) LEN(null)(null)LEN(null) (null)VAL(null)VAL(null) "
7110 [133]"SYS(null)TOP LENLOCK(Y/N) NCMDCMDCMD";SC$
7120 [139]SC$[178]"Y"[167][158]12[172]4096[170]15[172]256[170]3
7130 [139]SC$[178]"N"[167][141]7145
7140 [137]136
7145 [153]"(null)RESS (null)VAL(null)(null)(null)(null)WAIT (null)O (null)TART LENLOCK"
7150 [133]"ONONONONONONONONONSYSVALNTER (null)IME (HH,MM,SS)";B(2),B(1),B(0)
7160 [129]A[178]0[164]2:[151]251[170]A,B(A):[130]
7170 [158]12[172]4096[170]15[172]256:[142]
8000 [129]J[178]52992[164]53239:[135]X
8010 [151]J,X:CH[178]CH[170]X:[130]
8020 [129]A[178]0[164]2:[151]251[170]A,B(A):[130]
8025 [142]
8030 [131]76,6,207,76,87,207
8040 [131]120,160,2,248,169,0
8050 [131]24,182,251,202,48,4
8060 [131]105,1,144,249,153,251
8070 [131]0,136,16,238,165,253
8080 [131]201,19,144,7,56,233
8090 [131]18,9,128,133,253,216
8100 [131]164,253,166,252,165,251
8110 [131]141,9,220,142,10,220
8120 [131]140,11,220,169,0,141
8130 [131]8,220,173,15,220,41
8140 [131]127,141,15,220,169,100
8150 [131]141,20,3,169,207,141
8160 [131]21,3,169,15,141,250
8170 [131]207,88,96,120,169,49
8180 [131]141,20,3,169,234,141
8190 [131]21,3,88,96,206,250
8200 [131]207,208,103,169,15,141
8210 [131]250,207,173,134,2,160
8220 [131]7,153,32,216,136,16
8230 [131]250,173,11,220,48,8
8240 [131]201,18,208,15,169,0
8250 [131]240,11,41,31,201,18
8260 [131]176,5,120,248,24,105
8270 [131]18,141,253,207,216,88
8280 [131]173,10,220,141,252,207
8290 [131]173,9,220,141,251,207
8300 [131]162,2,160,30,189,251
8310 [131]207,141,249,207,32,211
8320 [131]207,200,200,153,0,4
8330 [131]173,249,207,200,153,0
8340 [131]4,202,16,232,173,8
8350 [131]220,201,5,176,3,169
8360 [131]58,44,169,32,141,37
8370 [131]4,141,34,4,76,49
8380 [131]234,138,72,169,0,141
8390 [131]248,207,173,249,207,162
8400 [131]3,10,46,248,207,202
8410 [131]16,249,173,249,207,41
8420 [131]15,9,48,141,249,207
8430 [131]104,170,173,248,207,9
8440 [131]48,96
9900 I[178]828
9901 [135]A:[139]A[178]256[167]9903
9902 [151]I,A:I[178]I[170]1:[137]9901
9903 [139][194](65440)[178]135[167][151]924,189
9904 [131] 169,1,32,195,255,169,36
9905 [131] 141,240,3,169,48,141,241
9906 [131] 3,169,1,162,8,160,0
9907 [131] 32,186,255,169,2,162,240
9908 [131] 160,3,32,189,255,32,192
9909 [131] 255,169,64,32,144,255,162
9910 [131] 1,32,198,255,32,144,255
9911 [131] 32,207,255,32,207,255,32
9912 [131] 207,255,32,207,255,201,0
9913 [131] 240,58,32,204,255,32,228
9914 [131] 255,201,32,208,3,32,196
9915 [131] 3,162,1,32,198,255,32
9916 [131] 207,255,168,32,207,255,72
9917 [131] 152,170,104,32,205,221,169
9918 [131] 32,32,210,255,32,207,255
9919 [131] 201,0,208,8,169,13,32
9920 [131] 210,255,76,115,3,32,210
9921 [131] 255,76,162,3,169,1,32
9922 [131] 195,255,32,204,255,169,204
9923 [131] 133,178,96,32,228,255,201
9924 [131] 32,208,249,96,256
9999 [142]
10000 [129]X[178]1[164]800:[130]X:[153]"ON ONONONON":[142]
11000 [153]:[153]"PRINT#(null)(null)(null)(null) WAIT(null)(null)(null)(null)1WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)2WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)3WAIT(null)(null)(null)(null) WAIT(null)(null)(null)(null)4WAITON"
11001 [142]